home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 128 18
/
q18.d81
/
128 input.asc
< prev
next >
Wrap
Text File
|
2022-08-28
|
416b
|
14 lines
30000 printchr$(27)"m"chr$(27)"f":printpq$;:sys52591
30010 getkeya$:ifa$=chr$(13)then30030:elseifpos(0)=lqthena$=""
30020 printa$;:goto30010
30030 sys52639:pq$="":print""spc(lq-1);
30040 close2:open2,3,2:fori=1tolq:get#2,a$:print"";:ifa$<>" "theneq=lq-i+1:i=lq:next:elsenext
30050 print"";:close2:open2,3,2:fori=1toeq:ifeqthenget#2,aa$
30060 pq$=pq$+aa$
30070 next:close2:print""chr$(27)"l":return
ready.